Imports System.ComponentModel

<Serializable()> _
Public Class Section4
    Inherits BaseDescriptor

    'S4C1
    Private _INTER As Integer
    Private _IOLAY As Integer = 1
    Private _IS As Integer = 1
    Private _ILBACK As Integer
    Private _ISHIFTAL As Double
    'S4C2
    Private _IGENREC As Integer
    Private _IENERGY As Integer
    Private _IFIEMOB As Integer
    Private _REFFIELD As Double
    Private _ITUNN As Integer
    Private _IEFMA As Integer = 1

    <CustomOrder(1), CustomCategory("S4C1"), CustomDisplayName("INTER"), CustomDescription("INTER"), DefaultValue(0), TypeConverter(GetType(CustomInt32ConverterINTER))> _
    Public Property INTER() As Object
        Get
            Return _INTER
        End Get
        Set(ByVal value As Object)
            _INTER = CInt((New CustomInt32ConverterINTER).ConvertFrom(value))
        End Set
    End Property

    <CustomOrder(2), CustomCategory("S4C1"), CustomDisplayName("IOLAY"), CustomDescription("IOLAY"), DefaultValue(1), TypeConverter(GetType(CustomInt32ConverterIOLAY))> _
    Public Property IOLAY() As Object
        Get
            Return _IOLAY
        End Get
        Set(ByVal value As Object)
            _IOLAY = CInt((New CustomInt32ConverterIOLAY).ConvertFrom(value))
        End Set
    End Property

    <CustomOrder(3), CustomCategory("S4C1"), CustomDisplayName("IS"), CustomDescription("IS"), DefaultValue(1), TypeConverter(GetType(CustomInt32ConverterIS))> _
    Public Property [IS]() As Object
        Get
            Return _IS
        End Get
        Set(ByVal value As Object)
            _IS = CInt((New CustomInt32ConverterIS).ConvertFrom(value))
        End Set
    End Property

    <CustomOrder(4), CustomCategory("S4C1"), CustomDisplayName("ILBACK"), CustomDescription("ILBACK"), DefaultValue(0), TypeConverter(GetType(CustomInt32ConverterILBACK))> _
    Public Property ILBACK() As Object
        Get
            Return _ILBACK
        End Get
        Set(ByVal value As Object)
            _ILBACK = CInt((New CustomInt32ConverterILBACK).ConvertFrom(value))
        End Set
    End Property

    <CustomOrder(5), CustomCategory("S4C1"), CustomDisplayName("ISHIFTAL"), CustomDescription("ISHIFTAL"), DefaultValue(GetType(Double), "0"), TypeConverter(GetType(CustomDoubleConverter))> _
    Public Property ISHIFTAL() As Double
        Get
            Return _ISHIFTAL
        End Get
        Set(ByVal value As Double)
            _ISHIFTAL = value
        End Set
    End Property

    <CustomOrder(1), CustomCategory("S4C2"), CustomDisplayName("IGENREC"), CustomDescription("IGENREC"), DefaultValue(0), TypeConverter(GetType(CustomInt32ConverterYESNO))> _
    Public Property IGENREC() As Object
        Get
            Return _IGENREC
        End Get
        Set(ByVal value As Object)
            _IGENREC = CInt((New CustomInt32ConverterYESNO).ConvertFrom(value))
        End Set
    End Property

    <CustomOrder(2), CustomCategory("S4C2"), CustomDisplayName("IENERGY"), CustomDescription("IENERGY"), DefaultValue(0), TypeConverter(GetType(CustomInt32ConverterYESNO))> _
    Public Property IENERGY() As Object
        Get
            Return _IENERGY
        End Get
        Set(ByVal value As Object)
            _IENERGY = CInt((New CustomInt32ConverterYESNO).ConvertFrom(value))
        End Set
    End Property

    <CustomOrder(3), CustomCategory("S4C2"), CustomDisplayName("IFIEMOB"), CustomDescription("IFIEMOB"), DefaultValue(0), TypeConverter(GetType(CustomInt32ConverterIFIEMOB))> _
    Public Property IFIEMOB() As Object
        Get
            Return _IFIEMOB
        End Get
        Set(ByVal value As Object)
            _IFIEMOB = CInt((New CustomInt32ConverterIFIEMOB).ConvertFrom(value))
        End Set
    End Property

    <CustomOrder(4), CustomCategory("S4C2"), CustomDisplayName("REFFIELD"), CustomDescription("REFFIELD"), DefaultValue(GetType(Double), "0"), TypeConverter(GetType(CustomDoubleConverter))> _
    Public Property REFFIELD() As Double
        Get
            Return _REFFIELD
        End Get
        Set(ByVal value As Double)
            _REFFIELD = value
        End Set
    End Property

    <CustomOrder(5), CustomCategory("S4C2"), CustomDisplayName("ITUNN"), CustomDescription("ITUNN"), DefaultValue(0), TypeConverter(GetType(CustomInt32ConverterITUNN))> _
    Public Property ITUNN() As Object
        Get
            Return _ITUNN
        End Get
        Set(ByVal value As Object)
            _ITUNN = CInt((New CustomInt32ConverterITUNN).ConvertFrom(value))
        End Set
    End Property

    <CustomOrder(6), CustomCategory("S4C2"), CustomDisplayName("IEFMA"), CustomDescription("IEFMA"), DefaultValue(1), TypeConverter(GetType(CustomInt32ConverterIEFMA))> _
    Public Property IEFMA() As Object
        Get
            Return _IEFMA
        End Get
        Set(ByVal value As Object)
            _IEFMA = CInt((New CustomInt32ConverterIEFMA).ConvertFrom(value))
        End Set
    End Property

End Class
